From c1abfb7cea110b41e8a92d1cf0031c92adf4b8ea Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Tue, 30 Sep 2003 11:46:13 +0000 Subject: [PATCH] (scheme-mode-variables): When setting `font-lock-defaults', also specify that "#" should be interpreted with `word' syntax. (scheme-font-lock-keywords-2): Also interpret "#:foo" as keyword. --- lisp/progmodes/scheme.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index 8f20438d058..d85c2ba9db2 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -165,7 +165,7 @@ (setq font-lock-defaults '((scheme-font-lock-keywords scheme-font-lock-keywords-1 scheme-font-lock-keywords-2) - nil t (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun + nil t (("+-*/.<>=!?$%_&~^:#" . "w")) beginning-of-defun (font-lock-mark-block-function . mark-defun) (font-lock-syntactic-face-function . lisp-font-lock-syntactic-face-function)))) @@ -337,8 +337,8 @@ See `run-hooks'." ;; David Fox for SOS/STklos class specifiers. '("\\<<\\sw+>\\>" . font-lock-type-face) ;; - ;; Scheme `:' keywords as builtins. - '("\\<:\\sw+\\>" . font-lock-builtin-face) + ;; Scheme `:' and `#:' keywords as builtins. + '("\\<#?:\\sw+\\>" . font-lock-builtin-face) ))) "Gaudy expressions to highlight in Scheme modes.") -- 2.30.2